home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / misc / zpoint_3_14.lha / zpoint-3.14 / Rexx / SelectThread.zprx < prev    next >
Text File  |  1995-03-09  |  722b  |  38 lines
  1. /*
  2.     $VER: SelectThread.zprx 1.1 (8.9.94) by Ralph Seichter
  3.     ARexx script for Zodiac's Point 3.7.
  4.  
  5.     Selects all members of the current message thread.  I suggest you
  6.     to bind this script to an F-Key, e.g. by adding the entry
  7.  
  8.         F1:SYS:Rexxc/RX ZP:Rexx/SelectThread.zprx %s
  9.  
  10.     to your "fkeys.zp" file.
  11. */
  12.  
  13. PARSE ARG zpPort
  14. ADDRESS VALUE zpPort
  15. OPTIONS RESULTS
  16.  
  17. whichlevel
  18. IF RESULT = "BOARD" THEN DO
  19.     d = 1
  20.     DO WHILE d > 0
  21.         messageinfo depth
  22.         d = RESULT
  23.         IF d > 0 THEN
  24.             up
  25.     END
  26.     d = 1
  27.     DO WHILE d > 0
  28.         selectmessage
  29.         down
  30.         IF RC THEN DO
  31.             messageinfo depth
  32.             d = RESULT
  33.         END
  34.         ELSE
  35.             d = 0
  36.     END
  37. END
  38.